home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / eg / Windows Script Host / test.pl < prev   
Encoding:
Perl Script  |  2000-09-25  |  357 b   |  19 lines
  1. #! ./perl
  2. #
  3. # tests the Windows Script Host functionality
  4.  
  5. @list = ( 'ADOSample1.wsf',
  6.     'ADOSample2.wsf',
  7.     'args.wsf "ok 1" "ok 2"',
  8.     'helloworld.wsf',
  9.     'notepad.wsf',
  10.     'showenv.wsf',
  11.     'specialfolder.wsf' );
  12.  
  13. for my $item (@list) {
  14.     system ("CScript $item");
  15.     print "Press [ ENTER ] to continue\n";
  16.     <STDIN>;
  17. }
  18.  
  19.